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中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
