主题：如何根据A列内容选择B列内容？

此主题相关图片如下：1.jpg

要求：根据“拼音码”内容对“启用”列作出选择。

如果“拼音码”内容不为空值，“启用”可以选择1或0；

如果“拼音码”内容为空值，“启用”自动为0；不能选择1.

这样的问题，通常就设计一个简单的表，输入几行数据传上来，方便大家回复。

你设计一个四列的表，输入几行数据，其实很简单啊。

我觉得这个问题对于老总和高手来说是个挺简单的问题，所以没有发文件，只借了个图，要求很明确的吗。

if e.row("拼音码")=nothing

messagebox.show("拼音码为空，不能用！")

end if

老总说的有道理，你不上传附件。帮助者不能保证所写的代码百分之百正确，测试正确后再回答；如果代码不正确，需要二次写代码。

DataColChanged事件：

if e.DataCol.Name = "拼音码" then

   if e.NewValue Is Nothing Then

       e.DataRow("启动") = False

   end if

end if

可能不是楼主所要的答案。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:住院收费.rar

文件上传。

自己琢磨的个代码，却造成很大错误。If e.DataCol.Name = "启用" Then
    If e.DataRow.Isnull("拼音码") Then
        e.DataRow("启用") = 0
    Else
        e.DataRow("启用") = 0 Or 1
    End If
End If

此代码造成打开文件提示错误，打开后点击"启用"单元格后文件自动关闭。

代码在自动项目表表属性

要求：根据“拼音码”内容对“启用”列作出选择。

如果“拼音码”单元格内容不为空值，“启用”可以手工选择1或0；

如果“拼音码”单元格内容为空值，“启用”自动为0；禁止手工选择.

代码起到一半的作用：

对于"拼音码" 为空的行，"启用"自动为False，禁止作出选择。正确

对于"拼音码" 不为空的行，"启用"自动为true，也禁止作出选择。未达到要求

要求：对于"拼音码" 不为空的行，"启用"可以手工选择true或False

这样的问题，易表很容易解决：

if e.DataCol.Name = "拼音码" then

   if e.NewValue Is Nothing Then

       e.DataRow("启动") = False

else

       e.DataRow("启动") = true

   end if

end if