| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]字符串问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32540) |
| -- 作者：jiskin -- 发布时间：2013/5/3 19:57:00 -- [求助]字符串问题 Dim s As String = e.Form.Controls("CheckedComboBox1").text
我想把复选框的数据转换成 ‘abc’,‘xxy’,‘shss’,……这个类型的 不知道接下来怎么写了
另外想咨询下 Select {项目总表}.项目编号,{项目总表}.品名,{项目总表}.型号,零件号,零件名称,规格,延迟原因,单位数量 * {项目总表}.产品件数 As [生产数量] From {零件表} Inner JOIN {项目总表} ON {项目总表}.[项目编号] = {零件表}.[项目编号] And {项目总表}.[型号] = {零件表}.[型号]
如果 单位数量 * {项目总表}.产品件数 As [生产数量] From {零件表} Inner JOIN {项目总表} ON {项目总表}.[项目编号] = {零件表}.[项目编号] And {项目总表}.[型号] = {零件表}.[型号] 这段的计算出来的列想摆到零件号列前面 可以实现吗 [此贴子已经被作者于2013-5-3 21:59:13编辑过]
|
| -- 作者：don -- 发布时间：2013/5/3 21:55:00 -- 1.朦的 Dim s As String = e.Form.Controls("CheckedComboBox1").text s = """" & s.Replace(",",""",""") & """" 2.可以,放在前面就是
|
| -- 作者：jiskin -- 发布时间：2013/5/3 22:00:00 -- 以下是引用don在2013-5-3 21:55:00的发言：
1.朦的 Dim s As String = e.Form.Controls("CheckedComboBox1").text
s = """" & s.Replace(",",""",""") & """" 2.可以,放在前面就是 看不懂啊亲 |
| -- 作者：don -- 发布时间：2013/5/3 22:03:00 -- 抱歉,我也不明白你的意思,所以说了是朦的 |
| -- 作者：jiskin -- 发布时间：2013/5/3 22:07:00 -- 以下是引用don在2013-5-3 22:03:00的发言：
抱歉,我也不明白你的意思,所以说了是朦的 我需要把复选框内的结果转换成 ‘abc’,‘xxy’,‘shss’,……的数据 j(i)的值是单个的 而且没有单引号 |
| -- 作者：don -- 发布时间：2013/5/3 22:13:00 -- Dim s As String = e.Form.Controls("CheckedComboBox1").Value e.Form.Controls("CheckedComboBox1").Value = "\'" & s.Replace(",","\',\'") & "\'"
|
| -- 作者：jiskin -- 发布时间：2013/5/4 8:14:00 -- 以下是引用don在2013-5-3 22:13:00的发言：
Dim s As String = e.Form.Controls("CheckedComboBox1").Value e.Form.Controls("CheckedComboBox1").Value = "\'" & s.Replace(",","\',\'") & "\'" Replace 是固定的，复选框里的结果不一定是多少个，每个选项的字符数和复选的数量是不固定的 [此贴子已经被作者于2013-5-4 8:14:33编辑过]
|
| -- 作者：Bin -- 发布时间：2013/5/4 8:58:00 -- Dim s As String = e.Form.Controls("CheckedComboBox1").text Dim j() As String = s.Split(",") dim str as String For i As Integer = 0 To j.Length - 1 str=",\'" & j(i) & "\'" Next str.trim(",")
|
| -- 作者：jiskin -- 发布时间：2013/5/4 9:08:00 -- 以下是引用Bin在2013-5-4 8:58:00的发言：
Dim s As String = e.Form.Controls("CheckedComboBox1").text Dim j() As String = s.Split(",") dim str as String
For i As Integer = 0 To j.Length - 1 str=",\'" & j(i) & "\'" Next str.trim(",")
如果 复选框内的值是 A33,A34,FTX-S111053 那么 测试结果是 ,"FTX-S111053" 只显示最后一个 |
| -- 作者：Bin -- 发布时间：2013/5/4 9:15:00 -- Dim s As String = e.Form.Controls("CheckedComboBox1").text Dim j() As String = s.Split(",") dim str as String For i As Integer = 0 To j.Length - 1 str=str & ",\'" & j(i) & "\'" Next str.trim(",") 刚才忘记拼接STR了.大意了.
|