跟着教程学习,数据源没有新建,是在原来数据库新建的表,把用户记录写入表里了,提示错误无法找到病根。帮忙看下那里错了
此主题相关图片如下:qq截图20180324124233.jpg

代码:
Select Case e.Sender.name
Case "ComboBox1","ComboBox2","ComboBox3","ComboBox4","ComboBox5","ComboBox6","DateTimePicker1","TextBox1","TextBox10","TextBox11","TextBox12","TextBox13","TextBox14","TextBox15","TextBox16","TextBox17","TextBox18","TextBox19","TextBox20","TextBox21","TextBox22","TextBox23","TextBox24","TextBox25","TextBox26","TextBox27","TextBox28","TextBox29","TextBox30","TextBox31","TextBox7","TextBox8","TextBox9"
Dim name1 As Row = Tables("水质检测原始数据").Current
If name1 ("录入") <> "ACC数据库".name Then
e.Sender.readonly = Booleanenum.True
Else
e.Sender.readonly = Booleanenum.False
Else
End Select