Foxtable(狐表)用户栏目专家坐堂 → 录入窗口的问题


  共有1689人关注过本帖平板打印复制链接

主题:录入窗口的问题

帅哥哟,离线,有人找我吗?
vincent92
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:398 威望:0 精华:0 注册:2018/4/27 13:27:00
录入窗口的问题  发帖心情 Post By:2018/6/5 16:29:00 [只看该作者]

我想做一个录入窗口,其中左边的是SQLQuery表,然后右边体现表中所有列,但是前五个是关联到table中的数据,后四个是在这个窗口输入的数据,希望能够通过这里的信息填到原始的table中,应该怎么写语句,我现在的写法如下:
Dim txt1 As Date = e.form.Controls("datetimepicker1").Text
Dim txt2 As Date = e.form.Controls("datetimepicker2").Text
Dim txt3 As String = e.form.Controls("TextBox5").Text
Dim txt4 As String = e.form.Controls("TextBox6").Text
Dim txt5 As String = e.form.Controls("开店窗口_Table1.店铺编号").Text
Dim txt6 As String = e.form.Controls("开店窗口_Table1.合同性质").Text
Dim dr As DataRow
If dr("店铺编号") = txt5 AndAlso dr("合同性质") = txt6 Then 
dr("开店时间") = txt1
dr("合同时间") = txt2
dr("预估金额") = txt3
dr("合同金额") = txt4
End If
DataTables("长摊明细表").Save()
Forms("开店窗口").Close()

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部