怎么判断MSHFlexGrid是空的?

kyzh 2004-05-01 05:53:32
一个可编辑的MSHFlexGrid怎么判断里面没数据输入啊?
...全文
157 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-05-02
  • 打赏
  • 举报
回复
问题:怎么判断MSHFlexGrid是空的?
谢谢解答,判断为空已解决,还有如何判断是否有重复输入啊?
我要一行中有两个字段的值相同的话就不能存入数据库,怎么判断啊?

无法回复消息

Private Sub Form_Load()
MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 10
For i = 0 To 4
MSHFlexGrid1.TextMatrix(3, i) = Choose(i + 1, 0, 2, 2, 3, 4)
Next
MsgBox isrepeat(MSHFlexGrid1, 3)
End Sub
Function isrepeat(ByVal grid As MSHFlexGrid, ByVal index As Integer) As Boolean
isrepeat = False
Dim i As Integer, j As Integer
For i = 0 To grid.Cols - 2
For j = i + 1 To grid.Cols - 1
If grid.TextMatrix(index, i) = grid.TextMatrix(index, j) Then isrepeat = True: Exit Function
Next
Next
End Function
northwolves 2004-05-01
  • 打赏
  • 举报
回复
Option Explicit

Private Sub Command1_Click()
MSHFlexGrid1.Rows = 10
MSHFlexGrid1.Cols = 5
MsgBox beempty(MSHFlexGrid1)
MSHFlexGrid1.TextMatrix(3, 4) = "1"
MsgBox beempty(MSHFlexGrid1)
End Sub

Function beempty(ByVal grid As MSHFlexGrid) As Boolean
beempty = True
Dim i As Long, j As Long
For i = 0 To grid.Rows - 1
For j = 0 To grid.Cols - 1
If Not grid.TextMatrix(i, j) = "" Then beempty = False: Exit For: Exit For
Next
Next
End Function

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧