dafeng1230的个人资料 - RAT

dafeng1230 dafeng1230

关注数: 1 粉丝数: 3 发帖数: 267 关注贴吧数: 4

曹村矿具体位置在哪？ rt

霍州曹村矿具体位置在哪？有知道的告诉下

知道的回答下谁知道潞安王庄矿原煤的成分

CBM666老师请进（有关视频采集）： CBM666老师我记得你以前说过有关视频采集的问题你那里还有资料吗？我现在想要一份如果有请发给我一份好吗？[email protected]请回复谢谢！

求助：代码解释我解释了一部分请补全谢谢 LPARAMETERS filenametalkcurrenstatus=set('talk')&&记录当前set talk 的状态safecurrenstatus=set('safety')&&记录当前set safety 的状态set talk off &&接收VB调用的文件名称，指明所对应的作用源表set safe off if used('projectinfo')sele projectinfoelsesele 0use projectinfoendifgo topcCurrentSyspath=alltrim(syspath)&&读到当前系统路径cCurrentDataPath=alltrim(datapath)&&读到当前项目数据路径cfullname=cCurrentDataPath-allt(filename)cCurrentDatabase=cCurrentDataPath-'db6.dbc'talkcurrenstatus=set('talk')&&记录当前set talk 的状态safecurrenstatus=set('safety')&&记录当前set safety 的状态currentdb=dbc() &&得到当前的数据库if right(currentdb,7)<>"db6.dbc" &&如果当前库不为db6open data '&cCurrentDatabase'endif if used('fieldnc')sele fieldncelsesele 0use fieldnc excluendifsele fieldncdele allpackif used('&filename')sele '&filename'elsesele 0use '&cfullname'endif**i=fcount() &&得到字段的个数copy stru to fieldstru.dbf exte &&把该作用源表的结构拷到fieldstru中去。if used('fieldstru')sele fieldstruelsesele 0use fieldstruendifgo topdo while .not.eof()m_fandfname=filename-"."-alltrim(field_name) &&得到带表名的字段名 m_fieldname=alltrim(field_name) &&得到带表名的字段名sele '&filename'm_fieldcaption=dbgetprop('&m_fandfname','field','caption')sele fieldncappe blankrepl fandfname with m_fandfname,fieldcap with m_fieldcaption,fieldname with m_fieldnamesele fieldstruskipenddoset talk &talkcurrenstatus&&恢复程序开始时set talk 的状态set safety &safecurrenstatus&&恢复程序开始时set safety 的状态clos data all

.dbf的问题（初级） filename = datapath + "1.dbf" 上面的是vf的表我怎么在access里实现呢？ filename = datapath +？？？？

请求帮助：vf表名与access表名的问题 filename = datapath + "1.dbf"上面的是vf的表我怎么在access里实现呢？filename = datapath +？？？？

请教：熟悉mapbasic的请进需要帮助 Include "MAPBASIC.DEF" Dim gsWorkPath,filename,fullname,datapath,tylx,dtlx,st as String Dim name as string Dim pos as integer 'OnError Goto my_handle gsWorkPath = ApplicationDirectory$() datapath = Left$(gsWorkPath,len(gsWorkPath)-9) If FileExists(datapath + "projectinfo.tab") = False Then filename = datapath + "projectinfo.dbf" fullname = datapath + "projectinfo" Register Table filename Type "DBF" Into fullname End If Open Table datapath + "projectinfo.tab" Fetch First From projectinfo datapath = projectinfo.datapath open table datapath + "mytab" fetch first from mytab st = mytab.name Drop table mytab pos = InStr(1, st, "\") If pos <> 0 Then open table st st = PathToTableName$(st) Else open table datapath + st + ".tab" End If map from st tylx = tableinfo(st,TAB_INFO_COORDSYS_CLAUSE) dtlx = "set map " + tylx run command dtlx set map scale 1 units "m" for 10 units "km" if fileexists(datapath + "limit.tab") = false then create table limit(mc char(10)) file datapath + "limit" end if open table datapath + "limit.tab" tylx = "create map for limit " + tylx run command tylx add map auto layer limit commit table limit close all 最好加上注释谢谢下面是vb调用的.mbx的原代码 mapBasic我不懂这里老出错原代码： filename = "" & gsWorkPath & "" & "MapBasic\Createbound.mbx" objmap.Do "run application """ & filename & """" 怎么解决？objmap是mapinfo对象

菜鸟求救： mapbasic 代码的解释 Include "MAPBASIC.DEF"Dim gsWorkPath,filename,fullname,datapath,tylx,dtlx,st as StringDim name as stringDim pos as integer'OnError Goto my_handlegsWorkPath = ApplicationDirectory$()datapath = Left$(gsWorkPath,len(gsWorkPath)-9)If FileExists(datapath + "projectinfo.tab") = False Thenfilename = datapath + "projectinfo.dbf"fullname = datapath + "projectinfo"Register Table filename Type "DBF" Into fullnameEnd IfOpen Table datapath + "projectinfo.tab"Fetch First From projectinfodatapath = projectinfo.datapathopen table datapath + "mytab"fetch first from mytabst = mytab.nameDrop table mytabpos = InStr(1, st, "\")If pos <> 0 Thenopen table stst = PathToTableName$(st)Elseopen table datapath + st + ".tab"End Ifmap from sttylx = tableinfo(st,TAB_INFO_COORDSYS_CLAUSE)dtlx = "set map " + tylxrun command dtlxset map scale 1 units "m" for 10 units "km" if fileexists(datapath + "limit.tab") = false thencreate table limit(mc char(10)) file datapath + "limit"end ifopen table datapath + "limit.tab"tylx = "create map for limit " + tylxrun command tylxadd map auto layer limitcommit table limitclose all'my_handle:'resume next以上是mapbasic 原代码我在vb里这样调用 filename = "" & gsWorkPath & "" & "MapBasic\Createbound.mbx"objmap.Do "run application """ & filename & """"这里老是出错请那位老师帮我加上注释谢谢

请教：数据绑定的问题请教如何实现用代码绑定adodc1与DataGrid与textbox的绑定呢adodc与datagrid已经绑定怎么实现text与datagrid的数据同步

API使用的问题例如 Private Declare Function aaa Lib "D:\XX\aaa.dll" () As Long如何将D：\XX 替换为app,path呢我试了几次都是错误

如何将顺序文件读到DataGrid中！！望知道者指点一二

Adodc密码修改的问题 With Adodc1 .RecordSource = "select * from 用户 where 用户名 = '" & shanxiwufei & "'" .Refresh .Recordset("密码") = Text1.TextEnd With MsgBox "密码修改成功！"运行没有错误可是库里的密码没有修改为什么呢

Adodc1.RecordSource的问题系统提示“语法错误，操作丢失”Adodc1.RecordSource = "select * from 用户 where 用户名＝'" & Text1.Text & "'"请教：我这里错在那了

请教：我想知道这道题为什么是这样 Private Sub Commend1_Click()Dim A As Integer, B As IntegerText1.SelStart = 2Text1.SelLength = 2A = Val(Text1.SelText)B = Len(Text1.Text)Print A * BEnd Sub‘为什么答案是170呢我在机器上运行过不可以运行

1 下一页