- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- fa piao筛选和批量改变 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74532)
-- 发布时间：2015/9/13 16:34:00
-- fa piao筛选和批量改变
问问朋友们 点击窗口 表1行后 在点击 待开票 按钮 把编号相同的 切开票状态是待开票的
筛选到窗口表2里面 感谢
有什么办法可以选择多行后 用一个按钮批量改变把 比如选择窗口2 然后选择多行 在选择ComboBox1
批量改变 窗口表2的 开票状态 列选中的行 感谢 感谢
此主题相关图片如下：筛选开票状态.jpg
-- 发布时间：2015/9/13 16:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:收款信息.table |
-- 发布时间：2015/9/14 15:25:00
--
能帮忙看看这个吗？
Dim dr As Row = Tables("企业档案.订单附表").addnew
dr("业务往来_产品型号") = Tables("企业档案窗口_Table5").Current("型号")
如果 企业档案窗口_Table5 没有行的时候就 把TextBox10 输入到 业务往来_产品型号
-- 发布时间：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
-- 发布时间：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
为什么选择的文件不是在新添加的行里面啊
-- 发布时间：2015/9/14 15:48:00
--
Tables("回款记录").Current("收款凭证") = FileSys.GetName(dlg.FileName)
改成
dr("收款凭证") = FileSys.GetName(dlg.FileName)