以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134085) |
-- 作者:gaolei -- 发布时间:2019/4/26 21:55:00 -- [求助] For Each tx As WinForm.Control In e.Form.Controls Dim c As WinForm.TextBox = tx If c.Value<>"" Dim s As String s = s "\'& :\'"\' & c.value &""\' End If Next Tables("资金流水_出纳").Current("进项税明细") = s 老师,这段代码s = s "\'& :\'"\' & c.value &""\'老是显示应为语句结束是啥意思啊
|
-- 作者:gaolei -- 发布时间:2019/4/26 21:57:00 -- 还有老师,关于那个单双引号的应用感觉帮助里面写的不清楚啊,看了好多遍了,感觉碰到实际应用的时候还是有点懵啊 |
-- 作者:有点蓝 -- 发布时间:2019/4/26 22:06:00 -- Dim s As String For Each tx As WinForm.Control In e.Form.Controls If Typeof tx Is WinForm.TextBox Dim c As WinForm.TextBox = tx If c.Value > "" s = s & ":" & c.value End If End If Next Tables("资金流水_出纳").Current("进项税明细") = s.Trim(":") 单引号是表达式条件才用到的,比如筛选条件、SQL语句
|