主题：自动填写

老师们好，想在地点列输入一个地名，直接在另四个列（交通费、城市交通费、住宿费、伙食补助）中自动填入标准如何写代码呢，谢谢！

根据不同的地名输入不同的标准。

请老师给看看怎么写呢？

 

 

If e.DataCol.Name = "地点" Then     '地点是列名
     Dim dr As DataRow
     Dim Filter As String
    Filter = "小坝城区"                       '如果在地点列输入小坝城区
     dr = DataTables("出差记录").Find(Filter)    '在出差记录表查找所输入的行
    If dr IsNot Nothing Then '如果找到
        '在找到行的四个列中输入数据
        e.DataRow("城市间交通费")=100
         e.DataRow("市内交通费") = dr("80")
            e.DataRow("伙食费") = dr("100")
               e.DataRow("住宿费") = dr("不高于330")
     Else
          '否则清除区号和邮编两列的内容
        e.DataRow("城市间交通费") = Nothing
         e.DataRow("市内交通费") = Nothing
     End If
 End If

老师，因为就几个地点，我不想再做一个“价格表”，想直接输入数据怎么办？

谢谢老师，做一个价格表不难，我主要是考虑一共就三种情况，直接在程序中输入就行了。我这个项目中表已经很多了，担心表不够用啊。