以下是引用ybil在2009-1-7 0:03:00的发言：
Dim r As Row
Dim TC, Tz As String
Tc = "DTP1,TtB1,CbB1,DTP2,TtB2,TtB3,TtB4,TtB5,CbB2,TtB6,NmB"
Tz ="登记日期,姓名,性别,出生日期,年龄,地址,电话,联系人,费用类别,住院次数,医农保证号"
r = Tables("患者").AddNew
For n As Integer = 0 to 10
r(Tz.split(",")(n))= e.form.Controls(Tc.split(",")(n)).Value
Next
呵呵，我来改进一下：
Dim r As Row
Dim TC(), Tz() As String
Tc = "DTP1,TtB1,CbB1,DTP2,TtB2,TtB3,TtB4,TtB5,CbB2,TtB6,NmB".Split(",")
Tz = "登记日期,姓名,性别,出生日期,年龄,地址,电话,联系人,费用类别,住院次数,医农保证号".Split(",")
r = Tables("患者").AddNew
For n As Integer = 0 to 10
r(Tz(n))= e.form.Controls(Tc(n)).Value
Next
加好友 
发短信
Post By：2009/1/6 16:34:00 [显示全部帖子]
[本帖被加为精华]
这样子如果控件过多,那不是太麻烦了?要写好半天..