怎么判断MSHFlexGrid是空的？
一个可编辑的MSHFlexGrid怎么判断里面没数据输入啊？ 问题点数：20、回复次数：2Top
1 楼northwolves（狼行天下）回复于 2004-05-01 07:41:58 得分 0
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 FunctionTop
2 楼northwolves（狼行天下）回复于 2004-05-02 09:00:39 得分 20
问题：怎么判断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 FunctionTop
