- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么让:\前面的相同啊！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51191)
-- 发布时间：2014/5/21 15:57:00
-- 怎么让:\前面的相同啊！
怎么让第二列的“:\\”前面的字符等于第一列:\\的字符啊
比如第一列是K:\\123 第二列是B:\\456 怎么让B变成K（和第一列的:\\前面的字符一样，当第一列“:\\”前面的字符发生改变的时候第二列就跟着改变。）
[此贴子已经被作者于2014-5-21 16:00:47编辑过]
-- 发布时间：2014/5/21 16:02:00
--
For Each r As Row In Tables("表A").Rows
If r.IsNull("第一列")=False AndAlso r.IsNull("第二列")=False Then
r("第二列")=r("第一列")(0) & r("第二列").Substring(1,r("第二列").length-1)
End If
Next
-- 发布时间：2014/5/21 16:03:00
--
一开始就说清楚嘛,写好了你需求又变了
-- 发布时间：2014/5/21 16:04:00
--
DataColChanged
If e.DataCol.name="第一列" Then
If e.DataRow.IsNull("第一列")=False AndAlso e.DataRow.IsNull("第二列")=False Then
e.DataRow("第二列")=e.DataRow("第一列")(0) & e.DataRow("第二列").Substring(1,e.DataRow("第二列").length-1)
End If
End If
-- 发布时间：2014/5/21 16:06:00
--
兄弟，你这表情那里下的啊！我怎么找不到啊 太逗了！
-- 发布时间：2014/5/21 16:08:00
--
If e.DataCol.name = "第一列" Then
Dim dr As DataRow = e.DataRow
If dr.IsNull("第一列") = False AndAlso dr.IsNull("第二列") = False Then
Dim idx1 As Integer = dr("第一列").IndexOf(":")
If idx1 > -1 Then
Dim idx2 As Integer = dr("第二列").IndexOf(":")
If idx2 > -1 Then
dr("第二列") = dr("第一列").substring(0, idx1) & dr("第二列").Substring(idx2)
End If
End If
End If
End If
-- 发布时间：2014/5/21 16:08:00
--
论坛里自带的.
-- 发布时间：2014/5/21 16:16:00
--
