vb msflexgrid控件防止录重复数据
我有一个msflexgrid控件,现在做成录入表单. 现在不能防止录入相同数据。
例如数据如下:
1 2 3 4 5
-----------------------------
A1 080901 80 90 1
A1 080902 50 50 1
A1 080901 70 70 1
.........
------------------------------
合计 3
------------------------------
现在我想判断在第1列和第2列是否存在相同的数据.（以上的数据中的第1行(A1 080901)和第3行的(A1 080901)相同）
请问如何判断？
请各位大侠帮忙。
dim s As Integer
For s = 1 To Val(MSFlexGrid2.TextMatrix(0, 5))
if Trim(MSFlexGrid1.TextMatrix(s, 1))=? and Trim(MSFlexGrid1.TextMatrix(s, 2))=? then
msgobx"......"
exit sub
end if
Next s
if Trim(MSFlexGrid1.TextMatrix(s, 1)) = Trim(MSFlexGrid1.TextMatrix(s, 2)) then
最好的办法是将不能重复的字段定义成主键。
前台，双重遍历。
for i = .fixedrow to 5
for l = i to 5
if textmatrix(i,0) = textmatrix(l,0) and textmatrix(i,1) = textmatrix(l,1) then
msgbox "..."
goto duplicate
endif
next
next
Duplicate:
后台，在1 和 2 列 �
相关问答：
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
