Foxtable(狐表) → 用户栏目 → 专家坐堂 → fa piao筛选和批量改变


  共有2522人关注过本帖树形打印复制链接

主题：fa piao筛选和批量改变
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		fa piao筛选和批量改变  发帖心情 Post By：2015/9/13 16:34:00 [只看该作者]

问问朋友们 点击窗口 表1行后  在点击 待开piao 按钮  把编号相同的 切开piao状态是待开piao的 
筛选到窗口表2里面 感谢 
有什么办法可以选择多行后 用一个按钮批量改变把  比如选择窗口2 然后选择多行 在选择ComboBox1 
批量改变 窗口表2的 开piao状态 列选中的行  感谢 感谢 


图片点击可在新窗口打开查看此主题相关图片如下：筛选开piao状态.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:收款信息.table
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/13 16:47:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:收款信息.table
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/9/14 15:25:00 [只看该作者]

能帮忙看看这个吗？
Dim dr As Row = Tables("企业档案.订单附表").addnew
dr("业务往来_产品型号") = Tables("企业档案窗口_Table5").Current("型号")  

如果 企业档案窗口_Table5 没有行的时候就 把TextBox10 输入到 业务往来_产品型号  
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/14 15:27:00 [只看该作者]

Dim dr As Row = Tables("企业档案.订单附表").addnew
If Tables("企业档案窗口_Table5").Current IsNot Nothing
    dr("业务往来_产品型号") = Tables("企业档案窗口_Table5").Current("型号")
Else
    dr("业务往来_产品型号") = e.Form.Controls("TextBox10").Text
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/9/14 15:41:00 [只看该作者]

Dim dr As DataRow = DataTables("回款记录").addnew
dr("收款人")=e.form.controls("ComboBox1").text
dr("收款金额")=e.form.controls("TextBox1").text
dr("回款日期")=e.form.controls("DateTimePicker1").text
dr("备注")=e.form.controls("TextBox2").text
dr("企业编号")=e.form.controls("Label2").text

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图片|*.jpg;*.png;*.gif;*.bmp;*.ico" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    FileSys.CopyFile(dlg.FileName, ProjectPath & "回款记录\回款凭证/" & FileSys.GetName(dlg.FileName), True)
    Tables("回款记录").Current("收款凭证") = FileSys.GetName(dlg.FileName)
End If

为什么选择的文件不是在新添加的行里面啊  
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/14 15:48:00 [只看该作者]

Tables("回款记录").Current("收款凭证") = FileSys.GetName(dlg.FileName)

 

改成

 

dr("收款凭证") = FileSys.GetName(dlg.FileName)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.21680 秒, 6 次数据查询