错在哪？如何解决？

Question

错在你试图将一个NULL赋值给text1.text变量（recQuery("AirwaysChnName")=NULL）。
你可以先检验是否为NULL，也可以写一个空值替换函数将NULL替换为空字符串。

Answer 1

为何 distinct 有两个recordcount?

Answer 2

这是由于你的AirwaysChnName 有空值,不能把空值附给TEXT控件.
可以改一下语句:
strSql="SELECT DISTINCT airwayscode ,isnull(AirwaysChnName,' ') as AirwaysChnName FROM Pub_Airways WHERE AirwaysCode='999'"

Answer 3

distinct 有两个recordcount一点都不奇怪,因为你有两个AirwaysChnName值 对应AirwaysCode='999'

Answer 4

我想在前端读出AirwaysChnName值给text如何写呢？？？

Answer 5

text1.text=ifNull(recQuery("AirwaysChnName"),"").
这个ifNll函数你自己写，就是判断第一个参数是否为NULL，是的话就把它替换为第二个参数。

Answer 6

text1.text=iif(isnull(recQuery("AirwaysChnName")),"",recQuery("AirwaysChnName"))

Answer 7

空值问题暂不考虑！！！，我想问为何在前端是空，数据库却有值
如何在VB中引用一列值中的一个给text框,如rs("AirwaysChnName")是一列值有“南航”“北航”“国航”等????

Answer 8

既然数据库有值前端为什么会是空的？除非你的查询条件有问题。直接用text.text=rs!AirwaysChnName 不就行了。