以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  识别类型，填充类属  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50874)
--  作者：JPG7
--  发布时间：2014/5/14 20:57:00
--  识别类型，填充类属

表“材料库”，有三列（类型、皮号、类属）

类型有多种（皮、革、青皮、布、科技布....)，希望将皮、青皮、革......归到“皮”类属里。希望在【类型】里输入（皮、革、青皮、布、科技布....)，之后，【类属】能自动填充为“皮”。

我在datacolchanged,写了这个代码，

Dim cls As List(of DataRow)
cls = DataTables("材料库").Select("[类型] = \'皮 \'")
For Each cl As DataRow In cls
    cl("类属")="皮"
Next

 

select条件不知道怎么写了

或者有什么其他好的方法也行
--  作者：有点甜
--  发布时间：2014/5/14 21:04:00
--  

 额....你这样写代码好危险......改完之后，记得重置列，才生效。

 

If e.DataCol.name = "类型" Then
    If e.DataRow.Isnull("类型") Then
        e.DataRow("属类") = Nothing
    Else
        Select Case e.DataRow("类型")
            Case "皮", "革", "青皮", "布", "科技布"
                e.DataRow("属类") = "皮"
            Case Else
                e.DataRow("属类") = Nothing
        End Select
    End If
End If

[此贴子已经被作者于2014-5-14 21:04:42编辑过]
--  作者：e-png
--  发布时间：2014/5/14 21:08:00
--  
datacolchanged里面不是这样写的，而是：
dim lx as string = "皮、革、青皮、布、科技布..."
Select Case e.DataCol.Name
case “类型”
    if lx.contains(e.datarow("类型"))
    e.dararow("类属") = "皮"
··················
················
[此贴子已经被作者于2014-5-14 21:11:00编辑过]