用pb把datawindow保存为dbf(3,4,5)格式时列数少时（网上说128列），可以正常保存，但这个表列数太多了，保存时出错。
先保存成access2003格式，再从access2003中导出为dbf也是出错。
保存成excel,再另存为dbf保存时不出错，但在卫统N042表上报引入dbf时，会出错！
excel直接改扩展名为dbf也不行。。。
还有什么办法？谁做过新的卫统N042表的接口数据？
------解决方案--------------------
还有一个办法，保存一个10个的数据窗口为dbf文件，然后研究一下dbf文件的格式，然后使用fileopen、filewrite来自己生成一个dbf文件，我以后做财务接口时这么做过，生成dbf文件格式比较简单，前面的内容是固定的（好象只需要改个列数），你研究一下
以下是我做生成dbf文件的参考例子
(最后一段放在这里了，因为只允许连接回复三次）
for ll_row = 1 to ll_cnt
ls_blob = ''
for ll_item_row = 1 to ll_item_cnt
ls_col_nam = idw_item.getitemstring(ll_item_row, "column_nam")
ll_item_len = idw_item.getitemnumber(ll_item_row, "item_num")
if idw_data.describe(ls_col_nam + ".visible") = '!' then
ls_data = space(ll_item_len)
else
choose case idw_item.getitemstring(ll_item_row, "item_typ")
case 'string'
ls_data = idw_data.getitemstring(ll_row, ls_col_nam)
if len(ls_data) > 0 then
//
else
ls_data = ''
end if
ls_data = left(ls_data + space(ll_item_len), ll_item_len)
case 'number'
ls_data = string(idw_data.getitemnumber(ll_row, ls_col_nam), '##########.00000')
if len(ls_data) > 0 then
//
else
ls_data = ''
end if
ls_data = right(space(ll_item_len) + ls_data, ll_item_len)
case 'date'
ls_data = string(idw_data.getitemdatetime(ll_row, ls_col_nam), 'YYYYMMDD')
if len(ls_data) > 0 then
//
else
ls_data = ''
end if
ls_data = left(ls_data + space(ll_item_len), ll_item_len)
end choose
end if
ls_blob += ls_data
next
ls_blob = left(ls_blob, len(ls_blob) - 1)
//ls_blob += space(59) //space(80) + space(80) + space(20)
if ll_row = ll_cnt then
ls_blob += '~h31~h1A'
else
ls_blob += '~h31~h20'
end if
FileWrite(ll_handle, ls_blob)
next
FileClose(ll_handle)
return 1
------解决方案--------------------
nvo_commdlg_excel Dialogs
string ls_title = "文件另存为"
string ls_filter = "DBF文件(*.dbf)~t*.dbf~tALL文件(*.*)~t*.*"
string ls_initialdir = "C:\My Documents"
string ls_filename //保存的文件名，包括路径及扩展名；
string ls_extendname //文件扩展名；如".psr"
integer li_ret
long li_type
Dialogs.hWndParent = Handle(this)
Dialogs.Title = ls_title
Dialogs.Filter = ls_filter
Dialogs.FilterIndex = 1
Dialogs.InitialDir = "finance.dbf"
Dialogs.FileName = "finance.dbf"
Dialogs.Flags = Dialogs.BitOr({Dialogs.OFN_EXPLORER, Dialogs.OFN_LONGNAMES, Dialogs.OFN_PATHMUSTEXIST})
If Dialogs.SaveDialog() Then
ls_extendname = upper(right(trim(dialogs.filename), 4))
ls_filename = Dialogs.PathName + "\" + Dialogs.FileName
ls_extendname = upper(right(trim(dialogs.filename), 4))
if FileExists(ls_filename) then
li_ret = gnv_app.of_Message("文件：" + ls_filename + " 已经存在，要覆盖这个文件吗？", Question!, OKCanCel!)
if li_ret = 1 then
//
else
return 0
end if
end if
else
return 0
end if
long ll_handle
blob lb_data
blob{1} lb_zero
string ls_data
ll_handle = FileOpen(ls_filename, StreamMode!, Write!, LockWrite!, Replace!)
if ll_handle = -1 then
gnv_app.of_message('文件打开失败，请检查是否在使用中！')
return 0
end if
string ls_hex
//生成接口文件
ls_data = ' 03 0A 09 0F'
ls_hex = gf_dectohex(idw_data.rowcount())
ls_data += ' ' + right('00' + left(ls_hex, 2), 2) + ' ' + left('00' + mid(ls_hex, 3, 2), 2)
ls_data += ' 00 00 01 0A 2E 15 00 00 00 00' // ; ........?R.....
ls_data += ' 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00' // ; ................
ls_data += ' 46 44 41 54 45 00 00 00 00 00 00 44 00 00 00 00' // ; FDATE......D....
ls_data += ' 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00' // ; ................
ls_data += ' 46 54 52 41 4E 53 44 41 54 45 00 44 00 00 00 00' // ; FTRANSDATE.D....
ls_data += ' 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00' // ; ................