vb.net - Erro on VB "Expecting an existing scalar var" -
i trying make function using vb. function collect data report. follows example:
public function headerdata() string dim dados string dados = "" if not(frm.formquery.fieldbyname("a").asstring = "s" , _ frm.formquery.fieldbyname("b").asstring = "s" , _ frm.formquery.fieldbyname("c").asstring = "s" , _ frm.formquery.fieldbyname("d").asstring = "s") dados = dados + "type: " if frm.formquery.fieldbyname(a).asstring = "s" dados = dados + "a" end if if frm.formquery.fieldbyname(b).asstring = "s" if frm.formquery.fieldbyname(a).asstring = "s" dados = dados + ", " end if dados = dados + "b" end if if frm.formquery.fieldbyname(c).asstring = "s" if frm.formquery.fieldbyname(a).asstring = "s" or _ frm.formquery.fieldbyname(b).asstring = "s" dados = dados + ", " end if dados = dados + "c" end if if frm.formquery.fieldbyname(d).asstring = "s" if frm.formquery.fieldbyname(a).asstring = "s" or _ frm.formquery.fieldbyname(b).asstring = "s" or _ frm.formquery.fieldbyname(c).asstring = "s" dados = dados + ", " end if dados = dados + "d" end if dados = dados + "; "
and function causes error: expecting existing scalar var.
i did other functions same purpose, similar code, using same variable collect data (dados) , did not cause error. happening?
your logic doesn't make sense. highly suggest write few lines , debug. make sure works , write few more lines. writing @ beginning cause trouble.
dim possiblefields string() = {"a", "b", "c", "d"} dim foundfields new list(of string) dim dados string = "" each field string in possiblefields if frm.formquery.fieldbyname(field).asstring = "s" foundfields.add(field) end if next if foundfields.count > 0 dados = string.format("type: {0}; ", string.join(", ", foundfields.toarray())) end if
Comments
Post a Comment